rm(list=ls())

load("TSCS_data.RData")

# Table C.1 ---------------------------------------------------------------

panel %>% select(downturn,
                 downturn_polyarchy,
                 liberal_democracy,
                 polyarchy,
                 citizen_support,
                 antipluralism_gov_seat_share,
                 antipluralism_gov_vote_share,
                 antipluralism_gov_head_seat_share,
                 GDP_capita,
                 life_expectancy,
                 polarization,
                 clientelism_gov_seat_share,
                 democratic_stock,
                 region_liberal_democracy,
                 region_antipluralism_gov_seat_share,
                 region_antipluralism_gov_vote_share,
                 region_antipluralism_gov_head_seat_share,
                 region_citizen_support) ->
  descriptives

stargazer(
  descriptives,
  type = "latex",
  out = "tab_c1.tex",
  covariate.labels = c(
    "Liberal democracy downturn",
    "Polyarchy downturn",
    "Liberal democracy",
    "Polyarchy",
    "Citizen support",
    "Anti-pluralist gov. (seat share)",
    "Anti-pluralist gov. (vote share)",
    "Anti-pluralist gov. (head of gov.)",
    "Log(GDP capita)",
    "Life expectancy",
    "Polarization",
    "Clientelism (seat share)",
    "Democratic stock",
    "Region liberal democracy",
    "Region anti-pluralist gov. (seat share)",
    "Region anti-pluralist gov. (vote share)",
    "Region anti-pluralist gov. (head seat share)",
    "Region citizen support"
  )
)
